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1, ABSTRACT 



"DRF" IS AN "IOMODX" THAT EXERCISES ONLY ONE DRV118. 
IF THE SYSTEM CONTAINS MORE THAN ONE DRV11B, ANOTHER COPY 
OF THIS MODULE MUST BE LOADED. 

A READ/WRITE REGISTER TEST IS PERFORMED TO ENSURE 

SOME OPERATING CONFIDENCE IN THE BASIC HARDWARE INTERFACE. 

THE DRV11B IS THEN ENABLED TO PERFORM DMA TRANSFERS TO AND FROM 

MEMORY USING DIFFERENT MODES AND DATA PATTERNS. 



2. REQUIREMENTS 



HARDWARE: DRV11B INTERP ROCESSOR INTERFACE 
STORAGE: : DRF REQUIRES : 

1. DECIMAL WORDS-! 1489 

2. OCTAL WORDS: 02721 
3- OCTAL BYTES: 5642 



3. PASS DEFINITION 

ONE PASS OF DRF MODULE CONSISTS OF 3072 PROGRAM INTERRUPTS 
AND 204,800 NON-PROCESSOR REQUESTS. 

4. EXECUTION TIME 

DRF RUNNING ALONE ON LSI-ll TAKES APPROXIMATELY ONE MINUTE. 

5. CONFIGURATION REQUIREMENTS 

DEFAULT PARAMETERS: 

DEVADR: 172410, VECTOR: 124, BR12 4, DEVCNT: 1, SRI: 
REQUIRED PARAMETERS: 

NONE, THIS MODULE ONLY SUPPORTS ONE DRV11B. 

6. DEVICE/OPTION SETUP 

THE MAINTENCE "WRAP-AROUND" BERG CABLE MUST BE INSTALLED. 
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7* MODULE OPERATION 

THE MODULE MILL BEGIN BY TESTING THE ABLILTY OF THE BUS READ/WRITE 
REGISTERS TO FUNCTION PROPERLY* THE REGISTERS VERIFIED ARE: 

mm COUNT <16 BITS MIDE> 
BUFFER ADDRESS <15 BITS WIDE> 
DATA BUFFER <16 BITS WIDE> 
STATUS REGISTER <6 BITS TESTED> 

8« OPERATION OPTIONS 

NONE 

9« HON STANDARD PRINTOUTS 



ALL PRINTOUTS HAVE STANDARD MEANINGS AS REPRESENTED IN 
DEC/X11 DOCUMENTATION. 



10, ENVIROMEMT 



#1 LSI-11 WITH 16K OF MEMORY 

RX11 FLOPPY DISK CONTROLLER WITH 2 DRIVE 

DRV11B INTERPROCESSOR INTERFACE WITH WRAPAROUND CABLE 

#2 LSI-11 WITH 24K OF MEMORY (8K CORE ♦ 16K MOS) 

RX11 FLOPPY DISK CONTROLLER WITH 2 DRIVES 
DRV11B INTERPROCESSOR BUFFER 
DRV11B INTERPROCESSOR BUFFER 
DRV11B INTERPROCESSOR BUFFER 
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051104 041106 
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888 



150000 

WW 

8000" 



IOKOOX <DRFB >, 172410.124. 4. 0,0, 1000, 121. BUFFF.R.512. 

MODULE 150000.DRFB , 1724l8,l2t,l, 0,g£i006,121 , BUFFER, 51 2. , 

.TITLE DRFB DEC/X11 SYSTEM EXERCISER MODULE 

ODXCOM VERSION 6 23-MAY-78 



VERSION 

r BIH 

****** a ************* ft********** 



^AG: 
_ jDR : 
vector: 
BRl: 



.ASCII /DRFB / 
.BYTE OPEN 
|||4|0+0 

.BYTE PRTY4+0 
.BYTE PRTYO+0 



0036 . 
000000 



;MODULE NAME. 

;USED TO KEEP TRACK OF WBUFF USAGE 
;1ST DEVICE ADDR. 
;1ST DEVICE VECTOR. 
;1ST BR LEVEL. 
?2ND BR LEVEL. 
;DEVICE INDICATOR 1. 
;S«ITCH REGISTER 1 
;SHITCH REGISTER 2 
;SWITCH REGISTER 3 

... T JSWITCH REGISTER 4 

*************** *****************^ 

;STATUS WORD. 

;MODULE START ADDR. 
;M0DULE STACK POINTER. 
;PASS COUNTER. 

;« OF ITERATIONS PER PASS=1000 
;LOC TO COUNT ITERATIONS 
;LOC TO SAVE TOTAL SOFT ERRORS 
;LOC TO SAVE TOTAL HARD ERRORS 
;LOC TO SAVE SOFT ERRORS PER PASS 
;LOC TO SAVE HARD ERRORS PER PASS 
;# OF SYS ERRORS ACCUMULATED 
;H0LDS RANDOM * WHEN RAND MACRO IS CALLED 
^RESERVED FOR MONITOR USE 
;RESERVED FOR MONITOR USE 
SRESERVED FOR MONITOR USE 
;LOC TO SAVE RO. 
;LOC TO SAVE Rl. 
;LOC TO SAVE R2. 
;L0C TO SAVE R3. 
JLOC TO SAVE R4. 
;LOC TO SAVE R5. 
;LOC TO SAVE R6. 
;ADDR OF CURRENT CSR. 
; ADDR OF GOOD DATA/ OR 
/CONTENTS OF CSR. 
JADDR OF BAD DATA. OR 
/STATUS REG CONTENTS. 
;TYPE OF ERROR 

;expected data. 

;ACTUAL DATA. 

;RESTART ADDRESS AFTER END OF PASS 
;HORDS TO MEMORY PER ITERATION 
;UORDS FROM MEMORY PER ITERATION 
;« OF INTERRUPTS PER ITERATION 
; MODULE IDENTIFICATION NUMBER=121 
;READ BUFFER VIRTUAL ADDRESS 
;READ BUFFER PHYSICAL ADDRESS 






OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 
OPEN 

OPEN 



BUFFER 
OPEN 
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204 000250* 

205 



rbufea: open 

RBUFSZ: 512. 

hbufpa: open 
hbufea: open 
hbufrq: 

HBUFSZr OPEN 

cderct: open 
cdhdct: open 
pree: 0P| ?t 

.NLIST 
.HORD 
• LIST 
.ENDR 



/READ BUFFER EA BITS 
JSIZE OF THE READ BUFFER 
;WRITE BUFFER PHYSICAL ADDRESS 
;WRITE BUFFER EA BITS 
;WRITE BUFFER SIZE REQUESTED 
;HRITE BUFFER SIZE AVAILABLE 
KDATA/DATCK ERROR COUNT 
;CDATA/DATCK WORD COUNT 
/RESERVED FOR FUTURE USE 
;M0DULE STACK STARTS HERE. 



**************************************** 



**************** 



SKQ 0004 



SFQ 0005 
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III 



mm- mm 



177564 
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;0RV11B BUS REGISTER ADDRESS POINTERS 



DRVWCR: 17241 



;W0RD COUNT 



DRVBAR: 172412 }BUFFER ADORES 

rush; mm mmhw 

;DRV11B VECTOR ADDRESS POINTERS 

8R?CT0: 124 /READY, NEX & INCOMPLETE DATIO VECTOR 

RVCfz! 126 ;NEW PS» ON INTR 

/COMMON PROGRAM LOCATION (S) 

TPS*177564 



m 




SETUP3! 



177674 
000124' 



NOV 

58? 
88? 

m 

BNE 
MOV 

KOV 
OV 
ADD 

SSI 

MOV 

CLR 
GETPA$ 



fD(ivHCR,RO 

tar* 

fgispi R * 2 ' R ° 

|DRVCT0 £ R0 
VECTOR, Rl 

DRVCT2#eDRVCT0 

fDRVCTS 
GIN, RBUFVA 



WORDS TO MEM/ITERATION 



WORDS FROM MEM/ITERATION 

NTERRUPTS/ ITERATION 
UP REG ADRS POINTER 



1232 

\i INTERRUPTS/ ITER At 

>SET UP REG ADR 

/GET BASE ADRS 
;load EM 

f all DONE? 
/BR IF NOT 

/SET UP DRV11B VECTOR ADRS POINTER 
;GET BASE VECTOR ADRS 

J POINT TO NEXT 
;all DONE? 
;BR IF NOT 

;GET PHYSICAL ADDRESS FROM 16-BIT RBUFVA 
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177646 177474 

til 

000025 177440 
104405 000000* 000000 
177424 
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;TEST THAT THE WORD COUNT REG IS WRITE/READABLE (FLOAT COM PTRN) 

TSTWCt MOV 

CL" 

1$: 



774 177| 

ll i! 



mm 



177300 

000002 177270 



c »bf 



DRVWCR, CSRA 
RO 



HOV 

52r P 



;SET UP WC REG ADRS 
|R0 SAYS SHIFT PTRN WHEN 
/FLOAT RIGHT TO LEFT 
;LD WC 

;READ IT BACK 

"QMPARE RESULTS 



2$: 



AS?jlT € gDlvWCR 

BDRVWCR,ACSR 

ASTAT, ACSR ;CQM _ 

BEQ 2$ /BR IF SO 

MOV I25,ERRTYP /BIT STUCK 

i***ft ******* ************** ************** ************************ 
,§8f§t*I§f£K*^ 

COM ASTAT ;COMPELEMENT ZERO 

COM RO ;ro SAYS SHIFT LEFT WHEN = 

BNE IS ;TRY THE COMPLEMENT IF RO NOT 

ASL ASTAT /COMPLEMENT WAS DONE - NOW SHIFT ZERO LEFT 

IMC ASTAT /KEEP LSB SET 

BCS 1$ ;again TILL ALL PATRNS DONE 



;TEST THAT THE BUFFER ADDRESS REG IS WRITE/READABLE (FLOAT COW PTRN) 



177550 177374 TSTBAS 



000025 177332 
104405 000000* 000000 



1$: 



2$: 



MOV 
CLR 
MOV 
MOV 
MOV 
BIC 



DRVBAR/CSRA 
RO 



RVBAR.AC 
ITO,ACSR 
TAT/ ACSR 



IVBAR 
ACSR 



•T UP BA REG ADRS 
' SAYS SHIFT PTRN 



MOV #25,ERRTYP 
********** ************ 

COM ASTAT 

gBITO, ASTAT 

aItat 

TSTDB 
||, ASTAT 



/FLOAT RIGHT TO LEI 
;LD BA 

/read it back 
/don't want bito 
/compare results 

;BR IF SO 
>BIT STUCK 
************ 



************************ ****** 



BIC 
COM 
BNE 
ASL 
BCC 
ADD 



/COMPLEMENT ZERO 
;BIT 00 NOT INVOLVED 
/RO SAYS SHIFT LEFT WHEN = 
/TRY THE COMPLEMENT IF RO NOT 
COMPLEMENT WAS DONE -NOW SHIFT ZERO LEFT 
;NEXT TEST OF BIT 15 DONE 
/KEEP ADDR LSB SET 
/AGAIN TILL ALL PATTERNS DONE 



mm oEC/lil 
XDRFB0.P11 
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;TEST THAT THE DATA BUFFER REG IS WR ITE/READABLE (FLOAT COM PTRN ) 



177434 177254 TSTDB: 



mm 
mm 

177220 
000000 



1SS 



2S: 



DRVDBR,CSRA 

R0 

liilT.PIvDBR 
BDRVDBR/ ACSR 
ASTAT/ACSR 



MO? 
CLR 
MOV 
NOV 
MOV 
CMP 
BEQ 

MOV f/D* tKKTjrr 

«*******£******* 

HRDER$#BEGIN« NULL 

.*ft*ft&fr*****fr*****«***1 

COM ASTAT 

COM RO 

BNE IS 

ASL ASTAT 

IMC ASTAT 

BCS 1$ 



;SET UP DB REG ADRS 
;R0 SAYS SHIFT PTRN WHEN 
;FLOAT RIGHT TO LEFT 
;LD OB 

;READ IT BACK 
/COMPARE RESULTS 
?BR IF SO 

*£* 11***^****************** ****** ******** 

1DATA BUFFER WRITE/READ FAILURE (LOOP BACK ) 

************* ****^********* ****** ******** 
^COMPLEMENT ZERO 
;R0 SAYS SHIFT LEFT WHEN =0 n 
;TRY THE COMPLEMENT IF RO NOT 
^COMPLEMENT HAS DONE - NOW SHIFT ZERO LEFT 
;KEEP LSB SET 

;again till all patrns done 



;TBST THAT THE DATA BUFFER REG IS BYTE ADDRESSABLE 



TSTDBB: 



MOV 
MOV 

CLR 
MOV 
MOV 
BISB 



16 177112 
000025 177106 
001000* 104405 000000* 000000 




ACSR 



tstfnS 
$/begin,null 

***** *******! 



;GET DB REG ADRS 
;SET UP DB REG ADRS 
;ZERO DATA BUFFER REG 
;LD EXPECTED 
;SEND DATA FROM "BDDAT" 
;LQAD HI BYTE DB 

ma w tni DB 

;C0MPARE RESULTS 
;NEXT TEST IF SO 

,*mi**i^********************* ********* 



******** 



iDATA ERROR ON BYTE ADDRESSING THE DATA BUFFER REG 
**************************************** 
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000025 
000000* 
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;TEST THAT THE 3 "FNCT" BITS CONTROL THE 3 "STAT" BITS (COUNT PTRN) 



TSTFN3 : 



1$: 



000051 177126 

mm \mh 

000025 176734 
000000* 000000 
177066 



176666 
000000 



MOV 
MOV 
MOV 
MOV 
MOV 
BIC 
CMP 
BEQ 
MOV 
******* 



DRVCSR<CSRA 
jttOOOfASTAT 

ROJiDRVCSR 

ASTAT # ACSR 
25#ERRTYP 

*********** 



;SET UP CSR ADRS 
;LD EXPECTED 

;rq contains «frct« bits written 
;write into "fnct" bits 
;read back thru "stat" bits 
;mask to "stat" bits only 
;compare results 
;br if so 
jbit stuck 

************************************* 



2$: 



HRDER$#BEGIN,NULL ;"FNCT" BITS FAILED TO SET "STAT" BITS (LOOP BACK) 

• *****%*****************************************************&**£ ' 



SUB 
SUB 
BPL 



#1O0O,ASTAT 

fl' R0 



;CHANGE TO NEXT EXPECTED 
;DECREASE COUNT PATTERN 
;D0 AGAIN UNTIL TESTED 



;TEST THAT GO CLRS READY & FNCT 2 WILL SET IT 



176764 TSTFACS MOV 



CLR 
MOV 
MOV 
CMP 



DRVCSR,CSRA 

ASTAT 

|l,gDRVCSR 
§DRVCSR,ACSR 
ASTAT, ACSR 

ERRTY 



BEQ 

W #35*ERRTYP 

******************* 



1$: 



HRDERS »BEGIS»NULL 

.**************** 

BIS 
MOV 
MOV 
CMP 
BEQ 
MOV 



******** 



4,|DRVCSR 
2204,ASTAT 
DRVCSR.ACSR 
STAT* ACSR 
-STBAR 



****** 



;SET UP CSR ADRS 

;expect o 

;SET GO WHICH SHOULD CLR READY 
/READ THE CSR 
;COMPARE RESULTS 
;br IF SO 
IB IT STUCK 

**************************************** 

;THE GO BIT FAILED TO CLR READY 

************* ****************** ********* 

;FHCT 2 SHOULD SET READY 
>LD EXPECTED 
;GET CSR 

^compare results 
;next test if set 
;bit STUCK 

**************************************** 



QV 

****** „ .. „ „ „ „ 

Hg2ig!#Si§IMU>L ^ I FNCT 2 (VIA ATTN) FAILED to set ready 

;*****&**»*>**********«***************************************** 
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001226/ 012777 
9* 055077 



m 

39" 
40 
40 



1 



30' 012767 
001336* 104405 
001344* 012777 
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;test THAT READY CONTROLS -bar* BITOO 




tstbar: mov 

MOV 
MOV 
CLR 
MOV 
CMP 
BEQ 
" OV 




#4/gDRVCSR 
DRVBARfCSRA 
"1»ASTAT 
DRVBAR 
DRVBAR* ACSR 
STAT,ACSR 



IS: 



2$: 



MOV 
MOV 

sea 

SB. 

HR 



****** 



mi 

#l,gDRVCSR 
§DRVBAR # ACSR 

ASTAT 

#25 C ERRTYP 
************ 



ft****: 

#4,gDRVCSR 



;SET READY 
;SET UP BAR ADHS 

;EXPECT LSB OF BAR 

;CLR BAR 
5 READ BAR 
;COMPARE RESULTS 
;BR IP SO 
JBIT STUCK 

*********************************** ********* 

********S*lii*lU8*II*i*****ilil*lli§*****8P 

JSET GOCCLRS BAR BITOO) 
;READ BAR 
JBR IF ZERO 
;EXPECTED ZERO 
JBIT STUCK 
******************************** 

****il*I**S***i*ii****2***l*l**I8**i 

;INSURE RDY SET BEFORE ADVANCING 



***** 

AD A 

***** 



;TEST THAT 'CYCLE* MILL CLOCK THE DBR (IN) 



STAT#§DRVDBR 

iDRVDBR* ACSR 
STAT/ACSR 



1$: 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 

CMP 

MOV #25,ERRTYP 

l ****************** 

»S*f§l**fSI**!l**** 
BIC t40Q#gDRVCSR 
MOV §52525 £ ASTAT 

MOV 

CMP 

li!*****i**iit*n** 



iDRVDBR, ACSR 
*STAT,ACSR 
TSTDTI 



fill 



;SET UP DBR ADRS 
;LD EXPECTED 
JLD DBR WITH #125252 
JSET CYCLE - SHOULD CLK DBR (IN) 
/CHANGE DBR (OUT) DATA - SHOULD NOT AFFECT (IN) 

;read DBR 

JCOMPARE RESULTS 
JBR IF SO 
JBIT STUCK 

******************************************* 

;C¥CLE DID NOT LATCH DBR (IN) DATA 
******************************************* 

; remove cycle 
;now expect #52525 
jread dbr 
jcompare results 
;next test if so 

JBIT STUCK 

******************************************* 
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SEQ 0011 



JTEST 
TSTDTI 

1$: 

2$: 
5$: 



3$: 



4$: 



SINGLE "DATI" NPR TRANSFERS 
R5 # SETVEC 

Si 2 '" 

I? 1 



(FLOATING COMPLEMENT PATRN) 



it* 

MOV 
CLR 
MOV 
MOV 
MOV 
MOV 
BIS 

EXIT$,BEi 



„ DRVfeiCR 
RBUFPA.gDRVBAR 
RO^BOFFER 
#101,ftDRVCSR 
!400;§0RVCSR 
GIN 



*§8_SE?. " P INTERRUPT RETURN 
;RETURN TO 2$ ON INTR 
JFLOAT ZERO RIGHT TO LEFT 
JR1 CONTROLS DATA SHIFTING 
;D0 ONE XFER 

;GET DATA WORD FROM "DBUF" 
;SET UP MEM DATA 
JSET IE & GO 
JSET CYCLE 

JEXIT TO MONITOR. MODULE WAIT FOR 



J QUEUE UP TO CONTINUE AT 5$ AND RTI 



;GO CHECK STATUS 
JCSR STATUS EXPECTED 
;# OF XFERS 
JNPR ERROR 

*************************** ****** a,*********** 



**************** 



P* I RQ$ 7 BE G 1 57 5 S 

5§R iiJcKSTAT*" 
700 
1 

M 2J*****l2itS5§nS* 

BR 4$ ;G0 RESTORE VECTOR 

M 2L****iIi****I************.SSg2***************** 

BR 4$ ;G0 RESTORE VECTOR 

HO? _ #32,ERRTYP JNPR ERROR 

8§V iSuFFER/ SBAOR IrETURN T HERe'iF T 0" 

MOV |BUFFER,WASADR 

MOV R0#ASB ;LD EXPECTED 

MDV |D|VDBR«AUAS JREAD DATA XFERED 

PJE *STAT,ACSR ;C0MPARE RESULTS 

BEQ 3$ ;BR IF SO 

^!*****2lS8i*****l*****i*II*»L8l***gSI* 
6 Hlil*iI§ii************i**II*ISS2yiL*** 

4S ;G0 RESTORE VECTOR 

g? ;RETURN HERE^ON^GOOD^DATA - NO* COM PATRN 

Rl JKEEP TRACK OF COMPLEMENT 

1$ ;D0 COMPLEMENT OF THIS FLOATING ZERO IF 

|Q JWAS DONE - NOW SHIFT ZERO LEFT 

RO JKEEP LSB SET 

P§,RSTVEC ihS A l*„llkk ZERS_i" IN CARRY 



;return here IF ok - SET up XFER ADRS 



£r 

COM 
COM 
BNE 
ASL 
INC 
BCS 
JSR 



************************* 



********* 



JGO RESTORE VECTOR 
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©01152 
177776 



li 
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|TES? SliGLE "DA TO" NPR TRAKSFERS {FLOATING 
fSfDfOl JSI 



H8J* 



If 002022* 000004 000000- 002030' 
001124 

0l2l6l 000032 176040 
002046* 104405 000000' 000000 

000032 176022 
104405 000000' 000000 

000032 176004 
104405 000000- 000000 

H- mm 

176102 175722 
104404 000000* 



1$: 

2$: 
5$s 



3$: 



4$ 8 



net 

Hi 

MOV 

MO? 
BIS 
EXITS 



R5,SET¥EC 

" "DRfOBR 
"iRVCf 
RVCJ 



COMPLEMENT PATRN) 
ETURN 



,BEGIN 



|G0 SB? OP INTERRUPT R 

;R1 CONTROLS DATA SHIFTING 
?Dfl ONE XFER 

5 WRITE DATA MORD TO "DBUF" 
;SET UP DATA IN DBR 
;S|T GO I FNCT1 (CI CONTROL) 



;EXIT TO MONITOR. MODULE WAIT FOR INTERRUPT. 



|lRis7iiGiN7i$~ 



; QUEUE UP TO CONTINUE AT 5$ AND RTI 



JSR 
J702 



R5,CKSTAT ;G0 CHECK STATUS 

;CSR STATUS EXPECTED 
;« OF XFERS 
pPR ERROR 

• * * ******************&*** 



#32,ERRTYP pPR ERROR 

ft***************** ***************** 

; RETURN HERE IF STATUS ER - EXPECTED STAT C 

******************* ********************* 

FNCT 1 



SB. *«** ; 

HRDERS,BEGIN £ NULL 

# a********************** 

;CYCLE, READY, IE & 
BR 4| ;G0 RESTORE VECTOR 

?2L****l**«l**n*******i**5*g558 ******************************* 

HRDERS fBEGINj, NULL J RETURN HERE IF WC ER - EXPECTED 

•*****»# ****************** ****************************** ******** 

BR 4$ ;G0 RESTORE VECTOR 

MOV 132-ERRTYP 5NPR ERROR 

****** **%******* ********************************** * ******* ****** 

4$ ;go restore vector 
.return here if ok - set up xfer adrs 



BR 
MOV 
MOV 
MOV 
MOV 
CMP 

BEr 



BEQ 

?*!*** 



fBUFFER/ SB ADR 
sBUPFER/ WASADR 
RO#ASB 
BUFFER/ANAS 
ASTAT/ACSR 



;LD EXPECTED 
;GET DATA XFERED 
;COMPARE RESULTS 
;BR IF SO 
DftVDBR.CSRA iSET UP DBR ADRS 

, »„„„„»«******%***************************************&********* 

*********** 1*111*11181114********* ***************** 

BR 4$ ;G0 RESTORE VECTOR 

COM RO ;RETURN HERE ON GOOD DATA - NOW COM PATRN 

COM Rl ;KEEP TRACK OF COMPLEMENT 

BNE if ;D0 COMPLEMENT OF THIS FLOATING ZERO IF 

ASL RO ^COMPLEMENT WAS DONE - NOW SHIFT ZERO LEFT 

INC RO ;keep LSB SET 

BCS IS ; AGAIN TILL ZERO BIT IN CARRY 
PC,RSTVEC »——«*» «™«« 



JSR 



;GC RESTORE VECTOR 
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Hi 
ill 

549 



in 



. 000440 
306' 012767 

002314* 104405 

nmr- mm 

002332* 104405 

WW- mm 



000032 

oooooo- 
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FOR 15 "DATI" NPR TRANSFERS (BURST MODE) 



SEQ 0013 



000032 175572 
oooooo- 000000 



175554 
000000 




002402' 104404 
002406' 004767 



JSR 

hk 

MOV 
MOV 

MOV 



R5,SETVEC 



BIS 

EXITS, BE 



PC#LDBUF 
#-15.,8DRV8CR 
RBUFPAjgDRVBAR 
$101#9DKVCSR 

|400 # |drvcsr 



;G0 SET UP INTERRUPT RETURN 
/RETURN TO IS ON INTR 

;GO LOAD BUFFER WITH COMPLEMENTING PATRN 
/LOAD WC REG - WILL DO 15 XFERS 
;SET UP CURRENT ADRS 
JSET IE & GO 
;SET CYCLE 

;EXIT TO MONITOR. MODULE WAIT FOR INTERRUPT. 



fiRQi#BEGli,I$ _~~~J~o^iuE"uT>~To"ra^ 

5si r5,ckstat ~ ;go"check""status~^ 
700 ;csr status expected 

15» * M OF XFER ^ 

M 8!*****flki§§F5 i«P R error 

.*********S***********************»A* ftft ^** ASftftft&aa ^ aft * aSt&aftSSft:ft:ft 

F.S.. ?JL > G o Restore vector 

M SY^^i32,ERRTYP SNPR ERROR 

* *************** ****************** ********* ***** ** ************** 

?i8i§ifil§i5«Sytk******liII8iS*aiSI I F . WC er - expected o 

<•****&%*****%**« ******************************** * a * **** 

BR 2$ ;go RESTORE VECTOR 

"SI^^Itl/ERRTYP JNPR ERROR 

.**********§***********ft**«************* A *** A *** ftft * s . 1ta4a ^ ftAAft ^ ft 

HRDERS/BEGIH/KULL _ JRETURN HERE IF BAR ER - SHOULD = DBUF+6 

» *************** ********** ****** ************** **** ****** ******** 

MOV 
MOV 

MOV 
CMP 

~EQ 

QV 



;GO RESTORE VECTOR 



BUFF^R+36gSBADR >L jOK x - E SE| D UP"LAST XFER ADRS WHERE #177577 SHOULD BE 
DRVDBR/ AWAS ' "" ~ ' 



/DBR SHOULD HAVE LAST DATUM 
;C0MPARE RESULTS 
/BR IF SO 



775 
uRVDbtf £ «B 
STAT/ACSR 

j?2L.****1*8*§^^ 

DATER$ £ BEGIN JDATA ERROR! ! I 

.**I**a*5*S**ft**********#S****ft**g** ft **** j!r59 . s ****^* #ft ^ A ^ A&ftaE ^ aA ^ 
JSR PC/RSTVEC ;GO RESTORE VECTOR 
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m 

597 




mm- 

002524' 

mm- 

002542* 

mm- 

002556* 
002562* 
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;TEST FOR 15 "DA TO" NPR TRANSFERS (BURST MODE) 




m 



000004 000000' 002470* 
000464 

000032 175400 
104405 000000* 000000 

000032 175362 
104405 000000' 000000 

mm 000032 175344 

104405 000000* 000000 



1SS 



3$: 



mm 



104404 000000* 
004767 000352 



2$: 



M&V 
MOV 
MOV 
MOV 
BIS 

EXITS, BEGIN 



R5,SETVEC 



;GQ SET UP INTERRUPT RETURN 
/RETURN TO 1$ ON INTR 
;W0RD WC REG - HILL DO 15 XFER'S 
urrA £ «UKWt)AK >SET UP CURRENT ADRS 
77377,gDR¥DBR ;THIS WILL BE WRITTEN TO MEM 
03,gDRVCSR ;SET IE, FNCT 1 & GO 
00,§DRVCSR ;SET CYCLE 



#-15.«gDRVWCR 

KByFPA#@iDRVBAR 



;EXIT TO MONITOR. MODULE WAIT FOR INTERRUPT. 



P^Ri$7BEGIN73$~ 



; QUEUE UP TO CONTINUE AT 3$ AND RTI 



JGQ CHECK STATUS 
STATUS EXPECTED 



R 2 R5,CKST» ,«.-«_.„ 
J# OF XFERS 
MOV #32#ERRTYP >NPR ERROR 

**************** ******* * ************* ********************* ****** 

HRDERS #BEGIN,NULL > RET URN HERE IF STATUS ER - EXPECTED STAT C 

*. ************************* **************************** ********** 

BR 

<SI(*****%**%**'** ****«*«*% *******!* ******************** ********** 

H 



'CYCLE* READY* IE & FNCT 1 
2$ ;G0 RESTORE VECTOR 

!**&**«* ********* ********* ****** **************** 



*** ****** 



f RETURN HERE IF WC ER - EXPECTED 
************************************** 



Ir 2$ /GO RESTORE VECTOR 

***** ****** *************************** 

HRDERS, BEG IN, NULL ; RETURN HERE IF BAR ER - SHOULD = DBUF+6 

i *************************************************************** 

BR 2S ;G0 RESTORE VECTOR 

JSR PC.CKDAT JRETURN HERE IF OK - NOW GO CHECK DATA 

« *************************************************************** 

DATER$,BEGIN JD ATA ERROR I 1 1 

J ************************************************* ****** ******** 
SR PC/RSTVEC JRETURN HERE IF DATA CHECK OK - GO RESTORE 
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000332 




ill 



002642' 000004 000000' 002650' 

8|||pfP|| 000304 

002660** OlSii 000032 175220 

002666* 104405 000000' 000000 

mm- mm 000032 175202 

002704' 104405 000000' 000000 

mm- mm 000032 175164 

002722' 104405 000000' 000000 

Slil'lillS 000600 

002740* 104404 000000' 

000166 
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SEQ 0015 

;TEST FOR 200 NPR TRANSFERS IN MAINT MODE 

MNTIN: JSR R5,SETVEC JGO SET UP INTR RETURN 

2$ J RETURN TO 2$ ON INTR 

JSR PC,LDBUF1 JGO SET UP DBUF (SPECIAL COM PATTERN) 

MOV RBDrPA/QDRVBAR >SET UP CURRENT ADRS 

MOV #-200.#1dRVWCR ?SET UP FOR 200 XFER'S 

MOV IlOlOl-jDRVCSR ;SET MAINT, IE & GO 

BIS f400,ftDRVCSR ;SET CYCLE 

MOV l0#AHAS ;SET UP A COUNTER 

EXITS, BEGIN ;EXIT TO MONITOR. MODULE WAIT FOR INTERRUPT. 

2$ • 

fiiSi^BEGIN^ii 7"QuiuI"uP~iB~CONTliuE~AT~4$"AND 

4$: JSR R5#CKSTAT "~ ;G0~CHECK STATUS 

10700 JEXPECTED STATUS 

200. ;| OF XFERS 

?2I*****filciSSni******ll*S*i§lS** *********************** ****** 

HRDERS, BEGIN, NULL JRETURN HERE IF STATUS ER - EXPECTED MAINT CYCLE, READY 

*>************************************************************** 

BR 3S ;GO RESTORE VECTOR 

i^§******i**ci******4 ****«! ****************************** ******** 
.§Slg§*fi§*M2^ 

BR 3$ ;G0 RESTORE VECTOR 

MOV #32,ERRTYP 2NPR ERROR 

• *************************************************************** 

HRDERS, BEGIN, NULL /RETURN HERE IF BAR ER - SHOULD = BUFFER+40 

**************************************************************** 

BR 3$ JGO RESTORE VECTOR 

JSR R5,CKDATl ;RETURN HERE IF OK - NOW GO CHECK DATA 

200, }f OF XFER'S TO CHECK 

**************************************************************** 

OPPI'.igPN | DAT A ERROR 111 

**************************************************************** 

HOP ; RESTORE VECTOR NEXT 

3$: JSR PCRSTVEC ;G0 RESTORE VECTOR 



in a UE.C/X1 ! 
XDRFB0.P11 



S *'-*"">. EXERCISER HOI ULE 
12-OCT-78 11:56 



i 



670 

1 

675 



mm imi 

175256 




0030! 
003020 

m m 

003036* 012767 
003044' 104405 



000032 
000000* 



mm- mm 



003070* 000240 

mm- mm 

003114* 104413 

003120* 000167 



000036 

000004 
175140 



000000* 
175252 



175042 
000000 



000032 175024 
104405 000000' 000000 
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"TEST THE ADDRESS (I/O) ABILITY TO THE TTY PRINTER CSR 

TSTTTY: JSR R5 # SETVEC ;G0 SET UP INTR RETURN 

IS ; RETURN TO IS ON INTR 

MOV f-l,#DRVMCR JSET UP «C - 1 XFER 

MOV fTPsJsDRVBAR ;SET UP BUFFER ADRS - FROM PRINTER CSR 

CLR &DRVDBR ;ZERO THE DPR 

MOV |l61,#DRVCSR ;SET IE, XAD17 & XAD16, 4 GO 

BIS 1400/iDRVCSR >SET CYCLE 

EXIT$, BEGIN ;EXIT TO MONITOR. MODULE WAIT FOK I 

1$: 

^IRQ$7bEGIn75$ ?"ioIuE""up"TO~CONTliuI AT 5$ AND RTI 

5$: isR R5/CKSTAT ;G0 CK STATUS 

760 ;CSR EXPECTED STATUS 

1 )« OF XFER'S 

MOV |32,ERRTYP |NPR ERROR 

<*******1*******************«*******»***»*«********************* 

HRDERS #BEGIN/NULL /RETURN HERE IF STATUS ER - EXPECTED CYCLE 

•*****W******************************************************** 

JXAD17 & XAD16 e RDY h. IE 
BR 2$ ;G0 RESTORE VECTOR 

MOV #32 t ERRTYP JNPR ERROR 

J*************************************************************** 

HRDER$,BEGIN,NULL ; RETURN HERE IF «C ER - EXPECTED 

• *** ** »*** ****** ********** ************ ****** ******************** 

MOP 

MOP ;MUST LEAVE THESE NOP'S IN 

NOP 

2$: JSR PC,RSTVEC ;GO RESTORE VECTOR 

MOV |4,gDRVCSR 

CLR iDRVCSR ;CLEAR DEVICE 

; END OF PASS 

ENDITS, BEGIN /SIGNAL END OF ITERATION. 

;monitor shall TEST end OF PASS 

JMP TSTWC ;TEST THE DEVICE AGAIN 
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003124* 012577 
003130- 012777 
003136' 000205 



175130 
00020' 



75110 
"5112 
5104 



175124 
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;THIS ROUTINE SETS THE PRIORITY LEVEL FOR NO INTERRUPT - 
;SETS UP THE DRV11B INTERRUPT TO RETURN ON INTERRUPT 
;TD THE ADDRESS INDICATED ((R5)) BY THE CALL +2 
SETVEC: MOV (R5)+ £ fDRVCT0 ;SET UP INTR RETURN ADRS 

MOV #206/§DRVCT2 JKEEP PRIORITY LEVEL AT TOP ON INTR 

RTS R5 ;EXIT 

;THIS ROUTINE CLEARS THE DRV11B CSR - RESTORES THE DRV11P 
J INTERRUPT VECTOR TO A HALT - RAISES PRIORITY LEVEL 
RSTVEC: CLR BDRVCSR ;CLR STATUS I CONTROL 
MOV DRVCT2 / 8DPVCT0 ;POINT VECTOR TO HALT 
SDRVCT2 



174674 
174662 

174650 
174636 



;SET UP HALT 
>EXIT 



;T«IS ROUTINE CHECKS ON ALL DATA TFANSFERS FOP: CORRECT STATUS/ 
;CORRECT WORD COUNT (, CORRECT BUFFER ADDRESS - THE EXPECTED DAI A TS 
;SDPPLIED IN THE CALL +2 & +4 - THE RETURN IS TO +54 IF NO F.RRfPS 
[DETECTED - IF AN ERROR IS DETECTED THE RETURN IS TO THE APPROPRIATE ERROR 



CKSTAT : MOV 

BIC 
MOV 
CMP 
BEQ 
MOV 



RTS 
MOV 
BEQ 
MOV 
CLR 
ADD 
RTS 
MOV 
ASL 
ADD 
MOV 
BIC 
CMP 
BEQ 
MOV 
ADD 
RTS 
ADD 
RTS 



2$: 



DRVCSR,ACSR 
1Q0/9D&VCSR 
R5)+/ ASTAT 
..STAT/ AC SR 

olvCSR/CSRA 

SI'" 5 

|drvhcr, acsr 
dIvwcr # csra 

ASTAT 

J! -" 5 

(R5|^ASTAT 

f BUFFER/ ASTAT 
§DRVB AR £ ACSR 
|BITO,ACSR 
ASTAT,ACSR 



J54, R5 



/READ THE STATUS 

;DISABL£ THE IE BIT 

?SET UP EXPECTED STATUS 

;CCMPARE 

;br IF SO 

;set up csr adrs 

jpoint to thf csr er 

;ex1t here on status err 

;get wc 

/br if zero 

;set up ncr adrs 

/expected 

;point to the ncr er 

;exit here on wcr er 

;GET XFER $ 
JCONVERT TO WORD 
/•POINT TO LAST XFER +2 
;GET BA 

JDCN'T KANT BITOO 
JCOMPARE 
;br IF SO 
J SET UP BAR ADRS 
>PCINT TO BAP ER 
;EXIT HERE ON BAR ER 
;ALL OK - POINT TO GOOD 
?EXIT HERE IF NO ERRORS 
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003676* 
070707 



JHMi 

1 11 
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E LOADS 



SHI 



l£!L£9Q9 L !LBg 



NO? 



3$: 
4$: 



BIE 
MO? 



we; 

BE TH 



WITH A FLOATING 

AST LOCATION IS LOADEB WITH THE 
BlfOPD AVAILABLE IN THE DBR 



BUFFER+36/R3 

|0707,(R3> 

""6^Fii*3 



TRANSFER 
;CET BUFFER ... 
JSBT UP FLOAT; 

I MAKE I NT 
5 AT END 01 



+36/R3 




*?5! 



PLOATINi 

Urn 



ZERO PATRN 
NG 0} 
"«G 1 
7 



DATVAR (SPECIAL) 

J"AD"if (FLOATING 1) 
BR f? D S0 BUFFER? 
li|CK_Tp FLOATING ZERO 



?SfiIFT LEFT 
JKEEP LSB SET 
j|g RESET FLOATIM 



ING P 
ATRN 



HECKS 15 LOCATIONS 
~»_'D*TO: TRANSFER 




LOAD NEXT P 

N "DBUF" FOR GOOD TRANSFERED 
_ ... f s DETE 



>GET BUFFER ADRS 
/DATA OK? 
?BR IF SO 

jset up dbr adrs 

;get actual data xfered 

;get memory adrs 

jreturn to error 
/at end of 'dbuf-? 

fBR IF MORE 

MDJUST STACK FOR GOOD RETURN 
;GET OUT 



. DETECTE. 
IS TO CALL 



UFFER*36,R1 
,(SP) 
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603< 



27g| 003640* 

m mm 



>6 000002 
15 000006 

I? mm 
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JTHIS ROUTINE LOADS 'BUFFER* WITH A UNIQUE FLOATING ZERO/ONE PATTERN 
lQ77776#0#l f £ 1 77775^0, 2#0# 177773/0/4^0,177767,0,10/0 ETC.) 



J ARE LQ 
LDBOFl: 

m 



MOV 
MOV 
ADD 
MOV 
MOV 
CLR 
COM 
MOV 
CLR 
CMP 
BIE 

cSm 

ASL 
INC 

BCC 
BR 

;THIS ROUTINE CH 



ass 8 "'" 3 



74260 



J DAT A 

$ 

CKDAT 

1$: 
2$: 



3$: 



4$: 




JGET BUPFER ADRS 
;SAVE IN R5 
;POINT TO END OF BUFFER 
;SET UP FLOATING ZERO PATRN 
JLOAD IT (FLOATING 0) 
;ZERO NEXT 
;SET UP FLOATING 1 
lLOAD IT 
>ZER0 NEXT 

;2q0 locs done? 
;br if not 

;GET OUT 

/BACK TO FLOATING ZERO 
;SHIFT LEFT 
;KEEP LSB SET 
;GO RESET FLOATING PATRN 



_ . JGO FLOAT NEXT PATRN 
K 200 LOCATIONS IN BUFFER * FOR GOOD TRANSFE 
77 ~ ~ 



r. „* inSS ==, DETECTED THE RETURN IS TO CALL +4 

E RETURN IS fO CALL *10 



S&I S X. M P D ^ TR *5§ F ?" S ~ THE NUMBER UF CHECKS REQUIRED IS INDICATED 

THE CALL ♦2 *" — *" — 

10 ERROR TBI 
~1: MOV 
MOV 
NOV 
CLR 
CMP 
BIE 
CMP 
BNE 
SUB 
BGT 



m 



„ts 

NOV 
NOV 
MOV 

H! 

COM 
COM 

OE 

l# 

BR 
NOP 

• BLKW 

• END 



- IF AN ERROR IS 
; RETURN 

iR5)* £ R0 



/R2 
/Rl 



|I,(R2)+ 
El/(R2)+ 



a- 



-CR2) ( ANAS 
R2,SBADR 

D§VDBR,CSRA 



512. 



;GET I OF CHECKS 
?GET BUFFER ADRS 
JSET UP FLOATING ZERO PATRN 
;R3 SAYS WHEN TO SHIFT PATRN 
?DATA OK? 
)BR IF NOT 
/DATA WRITTEN OK? 
JBR IF NOT 

> ACCOUNT FOR TWO ADRS'S 
;BR IF MORE 

; ADJUST FOR GOOD RETURN 

BAD DATA 
>GET MEM ADRS 
;LD EXPECTED DATA 

-"ii..sr 



jilfUR 



J ION EXPECT COMPLEMENT 
1TIME TO SHIFT? 
"IB ' 



P DBR ADRS 
N TO ERROR 



;BR IF NOT 
;SHIFT LEFT 
JKEEP LSB SET 
)GQ RESET FLOATING PATRN 
;D0 NEXT 
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000102R 
QQ0006R 



111a 



AWAS 

BEGIN 



BITO 
BIT1 
BIT! 



BIT11 = 
BIT12 = 

mi : 

|| ! 

IoffIr isii 

CDAf AS- 

CKSTAT 
COMFIG 
CSRA 

BATCKS= 
ATERS= 
DRf BAR 



mm 



i 



104411 

mm, 

000254R 



DRVI 



RVDBR 



2608 

m 



m 



l W 

st 245* 
6* 717* 
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CROSS REFERENCE TABLE — USER SYMBOLS 



HP 



269* 



445 
810# 



573 

Ml* 

556 
269 

291* 



696* 



613 
309* 

m 

292* 



653 
325* 

US 

701 



688 
308 



sr pi. «r p. & 4 . 

704* 713* 714* 715 



70 
260* 



lis 

SI 

658 



696# 
343* 



267* 

k 



366* 



377 
3 



353* 
-66* 



m 

360 

!M 

675 



1?. 



589 594 



450* 504* 



365* 
605* 



376* 
606* 



315* 
394 



III 



m 

608 



384 
646 



316 
402* 



281* 
344* 
502 



407 
526 
611 



603* 

391* 
647* 



390* 
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504 
227 



DRYWCR 

urn- 
mi " 



tern 

IooioSr 



FREE 188^41 
GETP&S-- 104 
G¥BUFS= XOl 



m 



S285$ s 
ESS 



0030R 

!!»§ 

iff 



HODHAH 

hub = 

Sill 1 : 

MULL = 



OPEN = 000000 



OTOA$ * 

p|$cp 



IPS. 
IP$P2= 



PRTfi = 
PRT¥4 = 

hii ■ 



PS 

PSM 



= 88 
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CROSS REFERENCE TABLE — USER SYMBOLS 



675 

ar 

241 



m 

658 



226* 

m 

204# 



206# 



206# 



551 
245 



662* 
474 



ffi 

664 



let 



554 
248* 



ffi*. 

526 



297 
490 



ffl 

m 



565* 
249 



568 



320 
495 



m 



645* 
416* 



608 



335 
536 



111 
ffl 



749 
469* 



349* 
539* 



351 
541 



m 
m 



651 



801 
522* 



358* 
544* 



360 
546 



360 
546 

170 
189 



374 
578 



374 

578 

171 
190 



380* 
582* 



382 
584 



382 
584 



396* 

587* 



398 
589 



398 
589 



405* 
616* 



407 
618 



407 

618 

174 

195 



SEQ 0021 

706 



429* 

621* 



431 

623 



431 

623 



175 
196 
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RANDS = 
RANNUM 

KBR 

RBUFSZ 
RBUPVA 

far 

mm 

Si 

I! 



iPOINT 
PSIZ = 



SR4 
START 

SVRl 
SVR2 

P 

m 

SYSCNT 



ma 



5746 



- ?W! 



sssxss 

VDPR 



417 



.Hi* 
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CROSS REFERENCE TABLE — USER SYMBOLS 



470 



SEQ 0022 



224# 



644 

365# 
288* 
412* 

325* 

1. 



225* 



IIS* 

519 



561 



600 



641 



687# 
681# 
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XDRFBO.PU. 12-0CT-78 11:56 CROSS REFERENCE TABLE — USER SYMBOLS SEQ 0023 

™.m m 2244 

• iBs - mm 88? 

$§fao£t d SE§£IEI 'generated : o 
xdrfbo,xdrfbo/sql/crf:symsddxcom,xdrfbo 

IIHili'JjoiSQSRi 

CORE USED: 7K (13 PAGES) 



